TOS Silver 2000/TOS Silver 2000.iso/programm/MM2_DEV/S/COMP/TEST/ENUMDBL3.M

Modula Definition | 1990-10-23 | 367 b | 27 lines

DEFINITION MODULE A;

TYPE Enum = (one, two, three);

END A.

IMPLEMENTATION MODULE A;

CONST eins = one; zwei = two; drei = three;
TYPE T = Enum;

END A.

MODULE B;

(* hier muß ein Fehler kommen: *)
FROM A IMPORT Enum, three;

CONST drei = three; zwei = two; eins = one;

BEGIN
  IF FALSE THEN
    IF 1 DIV 0 =4 THEN
    END
  END;
END B.